package online.filter;

import java.io.IOException;
import java.io.Serializable;
import java.util.HashSet;
import java.util.Objects;
import java.util.Set;

import javax.servlet.Filter;
import javax.servlet.FilterChain;
import javax.servlet.FilterConfig;
import javax.servlet.ServletContext;
import javax.servlet.ServletException;
import javax.servlet.ServletRequest;
import javax.servlet.ServletResponse;
import javax.servlet.http.HttpServletRequest;
import javax.servlet.http.HttpServletResponse;
import javax.servlet.http.HttpSession;
import javax.servlet.http.HttpSessionBindingEvent;

import online.filter.helper.ActionSessionList;
import online.filter.helper.ActionSessionMap;
import online.listener.SessionMutexListener;
import core.util.NumberUtil;

/**
 * セション抽出・保存フィルタ
 *
 * @author Tadashi Nakayama
 * @version 1.0.0
 */
public abstract class SessionAttributeFilter implements Filter {

	/** クラス名 */
	private static final String CLAZZ = SessionAttributeFilter.class.getName();

	/** アクションセション最大数 */
	private int max = 3;
	/** 回数 */
	private int times = 30;
	/** 待ち時間 */
	private int millis = 1000;

	/** サーブレットコンテキスト */
	private ServletContext sc = null;

	/**
	 * @see javax.servlet.Filter#init(javax.servlet.FilterConfig)
	 */
	@Override
	public final void init(final FilterConfig filterConfig) throws ServletException {
		this.sc = filterConfig.getServletContext();

		String val = filterConfig.getInitParameter("max");
		if (!Objects.toString(val, "").isEmpty()) {
			this.max = Math.max(NumberUtil.toInt(val, 3), 2);
		}
		val = filterConfig.getInitParameter("times");
		if (!Objects.toString(val, "").isEmpty()) {
			this.times = NumberUtil.toInt(val, 30);
		}
		val = filterConfig.getInitParameter("millis");
		if (!Objects.toString(val, "").isEmpty()) {
			this.millis = NumberUtil.toInt(val, 1000);
		}
	}

	/**
	 * @see javax.servlet.Filter#destroy()
	 */
	@Override
	public final void destroy() {
		return;
	}

	/**
	 * @see javax.servlet.Filter#doFilter(javax.servlet.ServletRequest,
	 * javax.servlet.ServletResponse, javax.servlet.FilterChain)
	 */
	@Override
	public final void doFilter(final ServletRequest svRequest, final ServletResponse svResponse,
					final FilterChain chain) throws IOException, ServletException {
		if (HttpServletRequest.class.isInstance(svRequest)
						&& HttpServletResponse.class.isInstance(svResponse)) {
			HttpServletRequest request = HttpServletRequest.class.cast(svRequest);
			HttpServletResponse response = HttpServletResponse.class.cast(svResponse);

			String sid = getActionSessionKey(this.sc, request);
			String prev = FilterUtil.getAttributeSid(request);
			if (sid == null || !sid.equals(prev) || request.getAttribute(prev) == null) {
				FilterUtil.setSessionType(sid, request, isMultiple(this.sc, request));
				suspendSession(request);

				if (sid != null && resumeSession(sid, request, response)) {
					setNoCache(response);
					try {
						chain.doFilter(svRequest, svResponse);
					} finally {
						suspendSession(request);
					}
					return;
				}
			}
		}

		chain.doFilter(svRequest, svResponse);
	}

	/**
	 * アクションセションキー取得
	 *
	 * @param context サーブレットコンテキスト
	 * @param request サーブレットリクエスト
	 * @return アクションセションキー
	 */
	protected abstract String getActionSessionKey(
					final ServletContext context, final HttpServletRequest request);

	/**
	 * 多重セション確認
	 * @param context サーブレットコンテキスト
	 * @param request サーブレットリクエスト
	 * @return 多重セションの場合 true を返す。
	 */
	protected abstract boolean isMultiple(
					final ServletContext context, final HttpServletRequest request);

	/**
	 * セション開始済確認
	 * @param sid SID
	 * @param request リクエスト
	 * @return 開始済時 true を返す。
	 */
	protected final boolean hasSession(final String sid, final HttpServletRequest request) {
		HttpSession session = request.getSession(false);
		if (session != null) {
			synchronized (SessionMutexListener.getMutex(session)) {
				return session.getAttribute(sid) != null
						|| sid.equals(FilterUtil.getAttributeSid(request));
			}
		}
		return false;
	}

	/**
	 * セション切り離し
	 * @param request サーブレットリクエスト
	 * @param sid SID
	 */
	public static void unbound(final HttpServletRequest request, final String sid) {
		HttpSession session = request.getSession(false);
		if (session != null) {
			Serializable removed;
			synchronized (SessionMutexListener.getMutex(session)) {
				ActionSession as = getActionSession(session);
				as.getList().remove(sid);
				as.getInUse().remove(sid);
				session.setAttribute(CLAZZ, as);
				removed = removeSession(session, sid);
			}
			unboundSession(session, sid, removed);
		}
	}

	/**
	 * NoCache設定
	 * @param response レスポンス
	 */
	private void setNoCache(final HttpServletResponse response) {
		if (!response.containsHeader("Cache-Control")) {
			response.setHeader("Cache-Control", "no-cache,no-store,max-age=0");
			response.setHeader("Pragma", "no-cache");
			response.setDateHeader("Expires", 0);
		}
	}

	/**
	 * アクション属性情報設定
	 *
	 * @param sid アクション属性キー
	 * @param request リクエストオブジェクト
	 * @param response レスポンスオブジェクト
	 * @return 設定した場合 true を返す。
	 */
	private boolean resumeSession(final String sid,
					final HttpServletRequest request, final HttpServletResponse response) {
		for (int i = 0; i < this.times; i++) {
			HttpSession session = request.getSession(false);
			if (session == null) {
				return false;
			}

			if (resumeActionSession(sid, request, session)) {
				return true;
			}

			try {
				Thread.sleep(this.millis);
			} catch (final InterruptedException ex) {
				Thread.interrupted();
				break;
			}
		}
		FilterUtil.sendError(response);
		return false;
	}

	/**
	 * セションオブジェクト設定
	 * @param sid アクション属性キー
	 * @param request リクエストオブジェクト
	 * @param session セションオブジェクト
	 * @return resumeした場合 true を返す。
	 */
	private boolean resumeActionSession(final String sid,
					final HttpServletRequest request, final HttpSession session) {
		synchronized (SessionMutexListener.getMutex(session)) {
			ActionSession as = getActionSession(session);
			if (!as.getInUse().contains(sid)) {
				request.setAttribute(sid, removeSession(session, sid));
				FilterUtil.setAttributeSid(request, sid);
				as.getList().remove(sid);
				as.getInUse().add(sid);
				session.setAttribute(CLAZZ, as);
				return true;
			}
			return false;
		}
	}

	/**
	 * セションリストア
	 * @param request リクエストオブジェクト
	 */
	private void suspendSession(final HttpServletRequest request) {
		String sid = FilterUtil.getAttributeSid(request);
		if (sid != null) {
			HttpSession session = request.getSession(false);
			if (session != null) {
				suspendActionSession(sid, request, session);
			}
			request.removeAttribute(sid);
		}
		FilterUtil.removeAttributeSid(request);
	}

	/**
	 * アクションセション追加
	 *
	 * @param sid アクション属性キー
	 * @param request リクエストオブジェクト
	 * @param session セションオブジェクト
	 */
	private void suspendActionSession(final String sid,
					final HttpServletRequest request, final HttpSession session) {
		// 記憶用モデル取得
		Serializable removed = null;
		String del = null;
		synchronized (SessionMutexListener.getMutex(session)) {
			// セションに追加
			// アクションセションリスト取得
			ActionSession as = getActionSession(session);
			as.getList().remove(sid);
			as.getInUse().remove(sid);

			Serializable obj = Serializable.class.cast(request.getAttribute(sid));
			if (obj != null) {
				session.setAttribute(sid, obj);
				as.getList().add(sid);
			}

			// 最大記憶数確認
			if (this.max < as.getList().size()) {
				del = as.getList().remove(0);
				as.getInUse().remove(del);
				removed = removeSession(session, del);
			}
			session.setAttribute(CLAZZ, as);
		}
		unboundSession(session, del, removed);
	}

	/**
	 * アクションセション取得
	 *
	 * @param session セションオブジェクト
	 * @return アクションセション
	 */
	private static ActionSession getActionSession(final HttpSession session) {
		// アクションセションリスト取得
		ActionSession ret = ActionSession.class.cast(session.getAttribute(CLAZZ));
		if (ret == null) {
			session.setAttribute(ActionSessionMap.class.getName(), new ActionSessionMap());
			ret = new ActionSession(new ActionSessionList(), new HashSet<String>());
			session.setAttribute(CLAZZ, ret);
		}
		return ret;
	}

	/**
	 * セション削除処理
	 *
	 * @param session セションオブジェクト
	 * @param sid アクション属性キー
	 * @return 削除オブジェクト
	 */
	private static Serializable removeSession(final HttpSession session, final String sid) {
		Serializable ret = Serializable.class.cast(session.getAttribute(sid));
		session.removeAttribute(sid);
		return ret;
	}

	/**
	 * タイムアウト処理
	 *
	 * @param session セション
	 * @param sid 名前
	 * @param removed 削除オブジェクト
	 */
	private static void unboundSession(final HttpSession session,
					final String sid, final Serializable removed) {
		if (removed != null) {
			ActionSessionMap asm = new ActionSessionMap();
			asm.put(sid, removed);
			asm.valueUnbound(new HttpSessionBindingEvent(session, sid));
		}
	}

	/**
	 * アクションセション
	 * @author Tadashi Nakayama
	 */
	private static final class ActionSession implements Serializable {
		/** serialVersionUID */
		private static final long serialVersionUID = 3438269257077036352L;

		/** 優先順位リスト */
		private final ActionSessionList list;
		/** 使用中セット */
		private final Set<String> set;

		/**
		 * コンストラクタ
		 * @param l 優先順位リスト
		 * @param s 使用中セット
		 */
		public ActionSession(final ActionSessionList l, final HashSet<String> s) {
			this.list = l;
			this.set = s;
		}
		/**
		 * 優先順位リスト取得
		 * @return 優先順位リスト
		 */
		public ActionSessionList getList() {
			return this.list;
		}
		/**
		 * 使用中セット取得
		 * @return 使用中セット
		 */
		public Set<String> getInUse() {
			return this.set;
		}
	}
}
